home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0973.dms
/
q0973.adf
/
InstallFonts
< prev
next >
Wrap
Text File
|
1978-02-14
|
762b
|
45 lines
.k ""
FailAt 20
set bcol0 "*E[40m"
set bcol2 "*E[42m"
set bold "*E[1m"
set nbold "*E[22m"
set font1 "Thin"
set font2 "Tpz"
set font1t "$bold$font1.font$nbold"
set font2t "$bold$font2.font$nbold"
Echo "*n $bcol2 Fonts Installation Script $bcol0*n"
if not exists FONTS:$font1.font
echo "$Font1t ..." NOLINE
copy fonts/$Font1#? FONTS: ALL QUIET
echo "Done*n"
else
echo "$Font1t already exists in FONTS:*n"
endif
if not exists FONTS:$font2.font
echo "$Font2t ..." NOLINE
copy fonts/$Font2#? FONTS: ALL QUIET
echo "Done*n"
else
echo "$Font2t already exists in FONTS:*n"
endif
Echo "Installation complete.*n"
unset font1
unset font2
unset bcol0
unset bcol2
Echo "*E[3mClick the close gadget to continue! *E[23m*n"
Wait 2
EndCLI >NIL: